home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / NewScript.AmiCAD < prev    next >
Text File  |  1998-03-02  |  2KB  |  53 lines
  1. /* NewScript.AmiCAD, 3 Mars 1998 © R.Florac, version 1.00e */
  2. /* Chargement automatique d'un nouveau script dans Amitex depuis AmiCAD
  3.    Le script lance Amitex s'il ne tourne pas et demande le
  4.    chargement du fichier squelette.AmiCAD dans une fenêtre.
  5.    Le curseur est directement placé sur la ligne où doit
  6.    débuter la partie particulière au script, après les
  7.    déclarations usuelles. L'utilisateur est invité à donner
  8.    le nom du nouveau script afin de donner le titre adéquat
  9.    au script.
  10.    Ce script peut être appelé depuis l'un des menus Macros/ARexx.
  11.    Il peut être adapté à n'importe quel éditeur de texte
  12.    possédant une interface ARexx. */
  13.  
  14. signal on error             /* pour l'interception des erreurs */
  15. signal on syntax
  16.  
  17. options results
  18. cr='0a'x
  19.  
  20. port = ADDRESS()                    /* lecture du nom du port EdiCalc */
  21.  
  22. address command
  23. if ~show(p, "AMITEX") then do
  24.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  25.     'run > nil:' "c:AmiTex"         /* chargement de l'éditeur */
  26.     waitforport "AMITEX"
  27. end
  28. else f=1                /* il y a déjà une fenêtre active */
  29.  
  30. ADDRESS(AMITEX)
  31.  
  32. if f=1 then 'NEW("Nouveau.AmiCAD")'             /* demande l'ouverture d'une autre fenêtre */
  33. 'LOAD("Travail:AmiCAD/ARexx/squelette.AmiCAD")' /* demande le chargement du script "squelette" */
  34.  
  35. 'ASK("Quel est le nom'cr'de ce nouveau script ?")'  /* demande du titre */
  36. titre = result||'.AmiCAD'
  37. if titre ~= "" then 'FILENAME("Travail:AmiCAD/ARexx/'titre'")'      /* renomme la fenêtre */
  38. 'GOTO(1,10)'
  39.  
  40. exit
  41.  
  42. /* Traitement des erreurs, interruption du programme */
  43. syntax:
  44. address (port)
  45. erreur=RC
  46. 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  47. exit
  48.  
  49. error:
  50. address (port)
  51. 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  52. exit
  53.